home *** CD-ROM | disk | FTP | other *** search
/ Super PC 34 / Super PC 34 (Shareware).iso / spc / WIN / WE96 / WINEDIT.MN_ < prev    next >
Encoding:
Text File  |  1996-02-16  |  28.1 KB  |  852 lines
  1. ;WINEDIT.MNU file.
  2. ;
  3. ;Modifications courtesy of Don Lekei, Richard Merit, Morrie Wilson
  4. ; and many many others.  Thank you very much.
  5. ;
  6. ; Some functions, like version control and alternate grep commands, 
  7. ; are presented here but commented out.  If you have the corresponding
  8. ; utility, just delete the semicolons from column 1 and the function
  9. ; will be enabled.
  10. ;
  11. ;
  12. ;
  13. ; AutoExec Section is on top here.
  14. ;
  15.         TAB=@TAB
  16.         CR=@CRLF
  17.         EOL=@CR
  18.         Home=DirHome()
  19.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  20.  
  21. Edit Utility Menu   ; Manage WinEdit Utility menu and help files
  22.         TheFile=strcat(DirHome(),"WINEDIT.MNU")
  23.         WFileOpen(TheFile)
  24.         Drop(TheFile)
  25. ;
  26. Edit Macro Menu   ; Manage WinEdit Macro menu
  27.         ; In the lite and standard versions of WinEdit,
  28.         ; the MACRO.ENC file is not editable.
  29.         ; In the Pro version, the file MACRO.MNU is used
  30.         ; and it can be edited.
  31.         level=2
  32.         a = FileLocate("WINEDIT.INI")
  33.         if FileExist(a) then level=IniReadPvt("WINEDIT","LEVEL","2",a)
  34.         if (level < 2) then Message("Edit Macro Menu","The Macro Menu cannot be edited in the Lite or Standard versions of WinEdit")
  35.         if (level < 2) then exit
  36.         ; else we can edit it
  37.         TheFile=strcat(DirHome(),"MACRO.MNU")
  38.         WFileOpen(TheFile)
  39.         Drop(TheFile)
  40.  
  41.  
  42. _Key Word Help      \ +{F1}         ; Load help topic for word at cursor
  43.         call("wwwedit.dll","KEYWORDHELP")
  44.  
  45. Load Help File                    ; Load a help file (no keyword lookup)
  46.         TheFile=strcat(DirHome(),"HELP\WEHELP.INI")
  47.         Keys=IniItemizePvt("HelpAll",TheFile)
  48.         KeyMax=ItemCount(Keys,@TAB)
  49.         KeyIndex=0
  50.         KeyValues=""
  51.  
  52.         :ieLoop
  53.         if KeyIndex==KeyMax then goto looped
  54.         KeyIndex=KeyIndex+1
  55.         ThisKey=ItemExtract(KeyIndex,Keys,@TAB)
  56.         if (stricmp(ThisKey,"DEFAULT")==0) then goto ieloop
  57.         ThisValue=IniReadPvt("HelpAll",ThisKey,"???",TheFile)
  58.         KeyValues=strcat(KeyValues,ThisValue,"|")
  59.         goto ieLoop
  60.         
  61.         :looped
  62.         a=ItemSelect("Select Help File",strlower(KeyValues),"|")
  63.         if a=="" then goto DONE
  64.         b = FileLocate(strcat(DirHome(),"HELP\%a%"))
  65.         if b=="" then b=FileLocate(a)
  66.         if b=="" then Message("Helpfile %a% not found","Edit %TheFile%%CR%[HelpAll] section to%CR%point to help file location%CR%or put helpfile on DOS path.")
  67.                  else WinHelp(b,"CONTENTS","")
  68.         :DONE
  69.         Drop(TheFile,Keys,KeyMax,KeyIndex,KeyValues,ThisKey,ThisValue,a,b)
  70. ;
  71.  
  72. ;
  73. _Insert Block
  74.  HTML
  75.   Template
  76.         wEdInsString("<html>")
  77.         wEdNewLine()
  78.         wEdInsString("<head>")
  79.         wEdNewLine()
  80.         wEdInsString("<title>Title</title>")
  81.         wEdNewLine()
  82.         wEdInsString("</head>")
  83.         wEdNewLine()
  84.         wEdInsString("<body>")
  85.         wEdNewLine()
  86.         wEdInsString("</body>")
  87.         wEdNewLine()
  88.         wEdInsString("</html>")
  89.         wEdNewLine()
  90.   Unordered List        
  91.         wEdInsString("<ul>")
  92.         wEdNewLine()
  93.         wEdInsString("<li>")
  94.         wEdNewLine()
  95.         wEdInsString("<li>")
  96.         wEdNewLine()
  97.         wEdInsString("<li>")
  98.         wEdNewLine()
  99.         wEdInsString("</ul>")
  100.         wEdNewLine()
  101.   Ordered List        
  102.         wEdInsString("<ol>")
  103.         wEdNewLine()
  104.         wEdInsString("<li>")
  105.         wEdNewLine()
  106.         wEdInsString("<li>")
  107.         wEdNewLine()
  108.         wEdInsString("<li>")
  109.         wEdNewLine()
  110.         wEdInsString("</ol>")
  111.         wEdNewLine()
  112.                 
  113.  If-Else
  114.      wEdNewLine()
  115.      wEdUpLine()
  116.      ; First determine if it is C or WIL
  117.      ;debug(1)
  118.      filext = FileExtension(wGetFileName())
  119.      if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL
  120.         wEdInsString("if  xx == yy")
  121.         wEdNewLine()
  122.         wEdNewLine()
  123.         wEdInsString("else")
  124.         wEdNewLine()
  125.         wEdNewLine()
  126.         wEdInsString("endif")
  127.         wEdNewLine()
  128.         wEdUpLine()
  129.         wEdUpLine()
  130.         wEdUpLine()
  131.         wEdUpLine()
  132.      else  ;assume C
  133.         wEdInsString("if  ( xx == yy )")
  134.         wEdNewLine()
  135.         wEdInsString("   {")
  136.         wEdNewLine()
  137.         wEdNewLine()
  138.         wEdInsString("}")
  139.         wEdNewLine()
  140.         wEdLeft()
  141.         wEdLeft()
  142.         wEdLeft()
  143.         wEdInsString("else")
  144.         wEdNewLine()
  145.         wEdInsString("   {")
  146.         wEdNewLine()
  147.         wEdNewLine()
  148.         wEdInsString("}")
  149.         wEdNewLine()
  150.         wEdUpLine()
  151.         wEdUpLine()
  152.         wEdUpLine()
  153.         wEdUpLine()
  154.         wEdUpLine()
  155.         wEdUpLine()
  156.      endif
  157.      drop(s,filext)
  158.  Switch
  159.      wEdNewLine()
  160.      wEdUpLine()
  161.      filext = FileExtension(wGetFileName())
  162.      if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL
  163.         wEdNewLine()
  164.         wEdUpLine()
  165.         wEdInsString("switch switchvar")
  166.         wEdNewLine()
  167.         wEdInsString("   case 1")
  168.         wEdNewLine()
  169.         wEdInsString("   break")
  170.         wEdNewLine()
  171.         wEdNewLine()
  172.         wEdLeft()
  173.         wEdLeft()
  174.         wEdLeft()
  175.         wEdInsString("case 2")
  176.         wEdNewLine()
  177.         wEdInsString("   break")
  178.         wEdNewLine()
  179.         wEdNewLine()
  180.         wEdLeft()
  181.         wEdLeft()
  182.         wEdLeft()
  183.         wEdInsString("case 3")
  184.         wEdNewLine()
  185.         wEdInsString("   break")
  186.         wEdNewLine()
  187.         wEdNewLine()
  188.         wEdLeft()
  189.         wEdLeft()
  190.         wEdLeft()
  191.         wEdLeft()
  192.         wEdLeft()
  193.         wEdLeft()
  194.         wEdInsString("endswitch")
  195.         wEdNewLine()
  196.         wEdUpLine()
  197.         wEdUpLine()
  198.         wEdUpLine()
  199.         wEdUpLine()
  200.         wEdUpLine()
  201.         wEdUpLine()
  202.         wEdUpLine()
  203.         wEdUpLine()
  204.         wEdUpLine()
  205.      else  ;assume C
  206.         wEdInsString("switch (swvar)")
  207.         wEdNewLine()
  208.         wEdInsString("   {")
  209.         wEdNewLine()
  210.         wEdInsString("case 1:")
  211.         wEdNewLine()
  212.         wEdInsString("   break;")
  213.         wEdNewLine()
  214.         wEdNewLine()
  215.         wEdLeft()
  216.         wEdLeft()
  217.         wEdLeft()
  218.         wEdInsString("case 2:")
  219.         wEdNewLine()
  220.         wEdInsString("   break;")
  221.         wEdNewLine()
  222.         wEdNewLine()
  223.         wEdLeft()
  224.         wEdLeft()
  225.         wEdLeft()
  226.         wEdInsString("case 3:")
  227.         wEdNewLine()
  228.         wEdInsString("   break;")
  229.         wEdNewLine()
  230.         wEdNewLine()
  231.         wEdLeft()
  232.         wEdLeft()
  233.         wEdLeft()
  234.         wEdLeft()
  235.         wEdLeft()
  236.         wEdLeft()
  237.         wEdInsString("   }")
  238.         wEdNewLine()
  239.         wEdUpLine()
  240.         wEdUpLine()
  241.         wEdUpLine()
  242.         wEdUpLine()
  243.         wEdUpLine()
  244.         wEdUpLine()
  245.         wEdUpLine()
  246.         wEdUpLine()
  247.         wEdUpLine()
  248.      endif
  249.      drop(s,filext)
  250.  While
  251.      wEdNewLine()
  252.      wEdUpLine()
  253.      filext = FileExtension(wGetFileName())
  254.      if filext=="WBT" || filext=="WIL" || filext=="MNU"  || filext=="WEB"  ; Its WIL
  255.         wEdInsString("while xx == yy")
  256.         wEdNewLine()
  257.         wEdNewLine()
  258.         wEdInsString("endwhile")
  259.         wEdNewLine()
  260.         wEdUpLine()
  261.         wEdUpLine()
  262.      else  ;assume C
  263.         wEdInsString("while (xx == yy)")
  264.         wEdNewLine()
  265.         wEdInsString("   {")
  266.         wEdNewLine()
  267.         wEdNewLine()
  268.         wEdInsString("}")
  269.         wEdNewLine()
  270.         wEdUpLine()
  271.         wEdUpLine()
  272.      endif
  273.      drop(s,filext)
  274.  Comment block       \ +^B
  275.         filext = FileExtension(wGetFileName())
  276.         if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"  then cmt=";" ; Its WIL
  277.               else cmt="//"
  278.         s=""
  279.         ;if wGetSelState() then
  280.         s=wEdGetWord()
  281.         clipput ("%cmt%***************************************************************************%CR%")
  282.         clipappend("%cmt%** %s%%CR%")
  283.         clipappend("%cmt%** %CR%")
  284.         clipappend("%cmt%** %CR%")
  285.         clipappend ("%cmt%***************************************************************************%CR%")
  286.         wEDgotocol(1) ;insert above current line
  287.         wedstartsel()
  288.         wedendsel()
  289.         wednewline()
  290.         wEDgotocol(1) ;insert above current line
  291.         Wedpaste()
  292.         weddownline()
  293.         weddownline()
  294.         wedend()
  295.         drop(s,filext,cmt)
  296. ;
  297. ;Builds a DETAILED comment block from the label under the cursor.
  298. ;
  299.  Comment SUPER block       \ ^!B
  300.         filext = FileExtension(wGetFileName())
  301.         if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"  then cmt=";" ; Its WIL
  302.               else cmt="//"
  303.         s=""
  304.         ;if wGetSelState() then
  305.         s=wEdGetWord()
  306.         clipput ("%cmt%***************************************************************************%CR%")
  307.         clipappend("%cmt%** %s%%CR%")
  308.         clipappend("%cmt%** %CR%")
  309.         clipappend("%cmt%** %CR%")
  310.         clipappend("%cmt%** Inputs: %CR%")
  311.         clipappend("%cmt%** Outputs: %CR%")
  312.         clipappend("%cmt%** Preserves: %CR%")
  313.         clipappend("%cmt%** Corrupts: %CR%")
  314.         clipappend ("%cmt%***************************************************************************%CR%")
  315.         wEDgotocol(1) ;insert above current line
  316.         wedstartsel()
  317.         wedendsel()
  318.         wednewline()
  319.         wEDgotocol(1) ;insert above current line
  320.         Wedpaste()
  321.         weddownline()
  322.         weddownline()
  323.         wedend()
  324.         drop(s,filext,cmt)
  325. ;
  326. ;Merge File header comment file from disk
  327. ;
  328. ;Header Block    \ ^!H
  329. ;        Wedgotoline(1)
  330. ;        WedGotoCol(1)
  331. ;        wFileMerge("header")
  332.  
  333. ;
  334. ;Shells external process to produce fancy printout of a file
  335. ;         
  336. ;Hardcopy        \ ^H
  337. ;        n=wGetfilename()
  338. ;        cmd="-o=10 -l,l %n% > lpt1"
  339. ;        AskLine("Hardcopy","Enter hardcopy command:",cmd)
  340. ;        wRunCommand("DOSPRMPT.PIF /c hcopy %cmd%",@FALSE,@FALSE)
  341. ;        drop (n,cmd)
  342.  
  343. ;
  344. ;
  345. Language Support
  346.  Generate C Tags                   ; Index source files
  347.         ; uses the TAGS.EXE program to generate WINEDIT.MRK file
  348.         ; that the next function uses to look up function names
  349.         ; in your source
  350.         RunWait("TAGS.EXE","-om -tWINEDIT.MRK *.c")
  351.         Message("Tags","Processing complete")
  352.  
  353.  Go to tag                         ; Jump to function definition
  354.         ; looks up the current word in WINEDIT.MRK, loads the file,
  355.         ; and moves the cursor to the correct line
  356.         ;DEBUG(1)
  357.         goto START
  358.         :GETWORD
  359.         a = AskLine("Go to tag", "Enter function definition to jump to:", "")
  360.         strupper(a)
  361.         len = strlen(a)
  362.         if len==0 then goto NOWORD
  363.         goto START2
  364.         :START
  365.         a=WEdGetWord()
  366.         strupper(a)
  367.         len = strlen(a)
  368.         if len==0 then goto GETWORD
  369.         :START2
  370.         b=FileLocate("winedit.mrk")
  371.         WFileOpen(b)
  372.         WFind(a,@TRUE,@FALSE)
  373.         WEdHome()
  374.         WEdStartSel()
  375.         WEdEnd()
  376.         WEdEndSel()
  377.         WEdCopy()
  378.         WWinClose()
  379.         line=ClipGet()
  380.         line2=strupper(line)
  381.         c=StrIndex(line2,a,0,@FWDSCAN)
  382.         d=StrIndex(line2," ",c,@FWDSCAN)
  383.         e=StrIndex(line2,"(",d,@FWDSCAN)
  384.         filename=StrSub(line2,d,e-d)
  385.         lineno=StrSub(line2,e+1,strlen(line2)-e-1)
  386.         WFileOpen(filename)
  387.         WEdGoToLine(lineno)
  388.         WEdHome()
  389.         Drop(len,b,line,line2,c,d,e,filename,lineno)
  390.         :NOWORD
  391.         Drop(a)
  392. ;
  393.  
  394.  Grep    \      ^G             ; Run fgrep
  395.         a = "fgrep.com"
  396.         b = FileLocate(strcat(DirHome(),a))
  397.         if b=="" then b=FileLocate(a)
  398.         if b=="" then Message("Error","Fgrep utility not found.  You can download fgrep.com from our Web site http://www.windowware.com/wwwftp/wilson/fgrep.zip")
  399.                  then goto DONE
  400.         GrepWord = wEdGetWord()         ; Get Selected word if any
  401.         command = AskLine("Grep","Enter the grep commmand to run:","tee.com %b% -M %GrepWord% *.c")
  402.         wRunCommand(command,@TRUE,@TRUE)
  403.         :DONE
  404.         Drop(command,GrepWord,a,b);
  405.  
  406.  
  407. ;Multifile grep command. Expects to find unix-compatable grep AND gres
  408. ;commands in the path!  It parses the result into an error file so that 
  409. ;next and previous error works 
  410. ;
  411.  
  412. ; Grep    \      ^G             ; Run fgrep
  413. ;        Tee=strcat(DirHome(),"tee.com")
  414. ;        Where=strlower(StrSub(dirget(),1,strlen(dirget())-1))
  415. ;        drv=StrSub(Where,1,2)
  416. ;        ext=strlower(fileExtension(wGetFilename()))
  417. ;        if (ext=="c"|ext=="h") then ext = "?"
  418. ;        GrepWord = wEdGetWord()         ; Get Selected word if any
  419. ;        command = GrepWord
  420. ;        command = AskLine("Grep (multifile)","Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter text to find: ","%GrepWord%")
  421. ;        wRunCommand("grep -n %command% %Where%\*.%ext%|gres '^(..[^:]*)(: )([0-9][0-9]*)(: )' '\1 \3 Error:'",@TRUE,@TRUE)
  422. ;        Drop(command,GrepWord,Tee,Where,drv)
  423. ;
  424.  
  425.  
  426. Convert line endings
  427.  Strip carrage returns (Unixize the file)
  428.         fn = wGetFileName()
  429.         fs=Filesize(fn)
  430.         bb=BinaryAlloc(fs)
  431.         BinaryRead(bb,fn)
  432.         oldname=strcat(FilePath(fn),FileRoot(fn),".BAK")
  433.         wWinClose ()
  434.         Mac=BinaryStrCnt(bb,0,fs-1,@LF)
  435.         If Mac==0
  436.            message ("No Linefeeds","This file can't be safely stripped")
  437.            wFileOpen(fn)
  438.            binaryfree(bb)
  439.            exit
  440.         endif
  441.         FileMove(fn,oldname,0) ; Make backup   
  442.         if binarypeek(bb,0)==13 then binarypokestr(bb,0," ")
  443.         q=0
  444.         while 1
  445.             q=BinaryIndex(bb,q,@CR,@fwdscan)
  446.             if q==0 then break
  447.             BinaryPokeStr(bb,q," ")
  448.         endwhile
  449.         BinaryWrite(bb,fn)
  450.         BinaryFree(bb)
  451.         wFileOpen(fn)
  452.  
  453.   
  454.  Replace LF with CR/LF  (DOSize the file)
  455.         ;if isdefined(dest)
  456.         ;  if dest<>0 then binaryfree(dest)
  457.         ;endif
  458.         ;if isdefined(source)
  459.         ;  if source<>0 then binaryfree(source)
  460.         ;endif
  461.         fn = wGetFileName()
  462.         fs=Filesize(fn)+1
  463.         source=BinaryAlloc(fs)
  464.         BinaryRead(source,fn)
  465.         BinaryPoke(source,fs-1,10)
  466.         DestSize= fs+BinaryStrCnt(source,0,fs-1,@LF)-1
  467.         dest=BinaryAlloc(DestSize+1)
  468.         oldname=strcat(filepath(fn),FileRoot(fn),".BAK")
  469.         wWinClose ()
  470.         Smark=0
  471.         Dmark=0
  472.         while 1
  473.            offset=BinaryIndex(source,Smark,@LF,@fwdscan)
  474.            if offset==0 then break
  475.            length=offset-Smark
  476.            BinaryCopy(dest,Dmark,source,Smark,length)
  477.            Smark=Smark+length+1
  478.            if BinaryPeek(source,offset-1)==13  then length=length-1
  479.            BinaryPokestr(dest,Dmark+length,@CRLF)
  480.            Dmark=Dmark+length+2
  481.         endwhile
  482.         filemove(fn,oldname,0)
  483.         BinaryWrite(dest,fn)
  484.         dest=binaryfree(dest)
  485.         source=BinaryFree(source)
  486.         wFileOpen(fn)
  487.  
  488. ;
  489. ;        
  490. ;Delete to end of word. A real, proper, sane one. Like the good old days!
  491. ;If the cursor is in/before text, the rest of the word will be deleted.
  492. ;If the cursor is in whitespace, the rest of the whitespace will be deleted
  493. ;If the cursor is at the end of line, the next line will be concatinated
  494. ;
  495. ;
  496. Delete to end of word   \ ^T
  497.         col = wgetcolno()             ;save current posn
  498.         wedend()
  499.         e = wgetcolno()               ;Find end of line
  500.         if col>=e then goto Dend      ;end of line -- do delete! (concat lines)
  501.         wedgotocol(col)               ;back where we started
  502.         c1=wgetchar()
  503.         wEdStartSel()
  504.         :loop
  505.         wedright()
  506.         if wgetcolno() < e then c=wgetchar()
  507.         else c=""
  508.         if !strcmp(c1," ") then if !strcmp(c," ") then goto loop
  509.         if strcmp(c1," ") then if strlen(c) then if strcmp(c,"!")>=0 then if ((strcmp(c,":")<0) || (strcmp(c,"?")>0)) then goto loop
  510.         wEdEndSel()
  511.         :Dend
  512.         wEdDelete()
  513.         drop(c)
  514. ;
  515.  
  516. ;Improved toggle-case macro for Winedit 3.1
  517. ;
  518.  
  519. Toggle case     \ ^Q
  520.         a = wGetSelState()
  521.         if a == 1 then goto selection
  522.         a = wGetChar()
  523.         if (a == StrLower(a)) then a = StrUpper(a)
  524.         else a = StrLower(a)
  525.         wEdDelete()
  526.         wEdInsString(a)
  527.         Drop(a)
  528.         exit
  529.         :selection
  530.         line = wGetLineNo()
  531.         col = wGetColNo()
  532.         wEdCut()
  533.         a=clipget()
  534.         if (a == StrLower(a)) then ClipPut(StrUpper(a))        
  535.         else ClipPut(StrLower(a))        
  536.         wEdPaste()
  537.         wEdStartSel()
  538.         wEdGotoLine(line)
  539.         wEdGotoCol(col)
  540.         wEdEndSel()
  541.         drop (a,line,col)
  542.         
  543. ; Open the file under the cursor or marked
  544. ;
  545. Open highlighted file    \ ^F       ; Open selected file
  546.         name = wEdGetWord()
  547.         length = strlen(name)
  548.         if length==0 then goto DONE
  549.         b = FileLocate(name)
  550.         if b == "" then Message("Open selected file","Cannot find %name%")
  551.         if b == "" then goto DONE
  552.         wFileOpen(b)
  553.         :DONE
  554.         drop(name,length,b)
  555. ;
  556.         
  557. ;
  558. ;Version Control for use with RCS
  559. ;
  560. ;&Version Control           ; RCS commands
  561. ; 
  562. ;; Lock/get file (co -l)  \ ^!F
  563. ;;        opt2="-l"
  564. ;;        goto lgf2
  565. ; Get file (co)          \ ^!O  
  566. ;        opt2=""
  567. ;        :lgf2
  568. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  569. ;        drv=StrSub(Where,1,2)
  570. ;        b=wGetFileName()
  571. ;        if b==1 then b=""
  572. ;        if wGetSelState() then s=wEdGetWord()
  573. ;           else s=b
  574. ;        a = AskLine("RCS Checkout %opt2%", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to lock:", s)
  575. ;        ParseData(a)
  576. ;        s=fileroot(param%param0%)
  577. ;        if s==fileroot(b) then wWinClose()
  578. ;           else if b!="" then if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()
  579. ;
  580. ;;OS/2 Version
  581. ;;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@FALSE,@TRUE)
  582. ;;        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  583. ;;DOS/WIN Version
  584. ;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@TRUE,@TRUE)
  585. ;      
  586. ;         Wfileopen(b)
  587. ;        b=FileLocate(a)
  588. ;        if b=="" then goto NotFound
  589. ;          WFileOpen(b)
  590. ;          goto DONE
  591. ;        :NotFound
  592. ;          Message("Sorry", "%a% not found...")
  593. ;          goto Done
  594. ;        :DONE
  595. ;        Drop(a)
  596. ;        Drop(b,Where,drv,s)
  597. ;
  598. ; Checkin file (ci)     \ ^!I
  599. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  600. ;        drv=StrSub(Where,1,2)
  601. ;        b=wGetFileName()
  602. ;        if b==1 then b=""
  603. ;        if wGetSelState() then s=wEdGetWord()
  604. ;           else s=b
  605. ;        a = AskLine("RCS Checkin (unlock)", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to put back:",s )
  606. ;        ParseData(a)
  607. ;        s=fileroot(param%param0%)
  608. ;        if s==fileroot(b) then wWinClose() 
  609. ;           else if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()
  610. ;        wRunCommand("%drv% |cd %Where%|wetee ci %a%",@TRUE,@TRUE)
  611. ;;(if OS/2)     pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  612. ;        wfileopen(b) ; reopen original window
  613. ;        Drop(a,Where,drv,b,s)
  614. ;
  615. ; Enter any command (clean)     \ ^!C
  616. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  617. ;        drv=StrSub(Where,1,2)
  618. ;        b=wGetFileName()
  619. ;        if b==1 then b=""
  620. ;        if wGetSelState() then s=wEdGetWord()
  621. ;           else s=strcat("rcsclean ",b)
  622. ;        a = AskLine("Any Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter command:", s)
  623. ;        ParseData(a)
  624. ;        s=fileroot(param%param0%)
  625. ;        if s==fileroot(b) then wWinClose()
  626. ;           else if AskYesNo("Close Files","%S% is not the active file.%CR% %CR%Close all files before continuing?")==@YES then wWinCloseall()
  627. ;        wRunCommand("%drv% |cd %Where%|%a%",@TRUE,@TRUE)
  628. ;;if OS/2        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  629. ;        wfileopen(b)
  630. ;        Drop(a,b,s,Where,drv)
  631. ;
  632. ;; &Logfile Info (locked)
  633. ;;        a = AskLine("PVCS Logfile Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file for which you want logfile info:", "")
  634. ;;        a=strcat("tee vlog -BL ",a)
  635. ;;        wRunCommand(a,@TRUE,@TRUE)
  636. ;;        Drop(a,Where,drv)
  637. ;
  638. ;; &Update all source files
  639. ;;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)
  640. ;
  641. ;
  642. ;&Version Control          ; PVCS commands
  643. ; &Get a file (w/lock)
  644. ;        a = AskLine("PVCS Get (w/lock) Command", "Enter file you want to lock:", "")
  645. ;        b=strcat("tee get -L ",a)
  646. ;        wRunCommand(b,@TRUE,@TRUE)
  647. ;        Drop(b)
  648. ;        b=FileLocate(a)
  649. ;        if b=="" then goto NotFound
  650. ;          WFileOpen(b)
  651. ;          goto DONE
  652. ;        :NotFound
  653. ;          Message("???", "%a% not found...")
  654. ;          goto Done
  655. ;        :DONE
  656. ;        Drop(a)
  657. ;        Drop(b)
  658. ;
  659. ; &Put a file back (unlock)
  660. ;        a = AskLine("PVCS Put (unlock) Command", "Enter file you want to put back:", "")
  661. ;        a=strcat("tee put ",a)
  662. ;        wRunCommand(a,@TRUE,@TRUE)
  663. ;        Drop(a)
  664. ;
  665. ; &Enter any PVCS command
  666. ;        a = AskLine("PVCS Command", "Enter PVCS command:", "")
  667. ;        a=strcat("tee ",a)
  668. ;        wRunCommand(a,@TRUE,@TRUE)
  669. ;        Drop(a)
  670. ;
  671. ; &Logfile Info (locked)
  672. ;        a = AskLine("PVCS Logfile Command", "Enter file for which you want logfile info:", "")
  673. ;        a=strcat("tee vlog -BL ",a)
  674. ;        wRunCommand(a,@TRUE,@TRUE)
  675. ;        Drop(a)
  676. ;
  677. ; &Update all source files
  678. ;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)
  679. ;
  680. ;;
  681.  
  682. _Utilities      ;      Select from list of utilities
  683.  &Freespace on Local Drives   ; Display free disk space on drives
  684.  
  685.         Drive=DiskScan(2)     ; 2 is the code for local hard drives
  686.         Dmax=strlen(Drive)
  687.         DIndex=1
  688.         TotalSize=0
  689.         DriveReport=""
  690.  
  691.         :COUNTSPACE
  692.         NextDrive=StrSub(Drive,Dindex,1)
  693.         a=DiskFree(NextDrive)/1024
  694.         TotalSize=a+TotalSize
  695.         DriveReport=strcat(DriveReport,NextDrive," = ",a,"K","@")
  696.         DIndex=Dindex+3  ;each entry is 3 bytes long
  697.         if DIndex<=Dmax then goto COUNTSPACE
  698.         ItemSelect("Total Space Available = %TotalSize%K",DriveReport,"@")
  699.         Drop(xxx,TotalSize,DriveReport,NextDrive,LastDrive)
  700.  
  701.  &Wallpaper                   ; Change the desktop wallpaper
  702.            DirChange(dirWindows(0))
  703.            a=FileItemize("*.BMP")
  704.            a=strcat("-None- ",a)
  705.            a=ItemSelect("Select New Wallpaper",a,@tab)
  706.            terminate(a=="","Wallpaper","No wallpaper selected")
  707.            if a=="-None-" then Wallpaper("",0)
  708.            if a=="-None-" then exit
  709.            tile=@FALSE
  710.            if FileSize(a)<40000 then tile=@TRUE  
  711.            ;if bmp size less than 40K, assume tile, else center
  712.            Wallpaper(a,tile)
  713.            drop(a,b,tile)
  714.         exit
  715.  
  716.  Paste Special Characters             ; Paste high ASCII characters to clipboard or document
  717.   Copy &FormFeed to Clipboard
  718.        Clipput(Num2char(12))
  719.   Copy &Special Characters to Document
  720.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  721.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  722.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  723.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  724.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  725.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  726.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  727.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  728.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  729.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  730.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  731.        Drop(b,c,d,e,f,g,h,i,j)
  732.        a=ItemSelect("Choose a character",a,"|")
  733.        a=strsub(a,2,1)
  734.        wEdInsString(a)
  735.        Drop(a)
  736.  
  737.  
  738. &System Information
  739.        wintype="retail"
  740.        if WinMetrics(22) then wintype="debug"
  741.         wcx=WinMetrics(-3)
  742.         math="Math"
  743.         switch wcx
  744.            case 0   ; Win16
  745.                 wc=WinConfig()
  746.                 if !(wc&1) then mode="Real"
  747.                 if wc&16 then mode="Standard"
  748.                 if wc&32 then mode="Enhanced"
  749.                 
  750.                 if wc&64 then cpu=8086
  751.                 if wc&128 then cpu=80186
  752.                 if wc&2 then cpu=286
  753.                 if wc&4 then cpu=386
  754.                 if wc&8 then cpu=486
  755.                 mode = strcat(mode,' ',wintype,' Windows ')
  756.                 if !(wc&1024)  then math="No math"
  757.                 break
  758.           case 1 ; Win32 Intel
  759.                mode="Intel 32-bit %wintype% Windows "
  760.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  761.                break
  762.           case 2 ; Dec Alpha
  763.                mode="DEC Alpha %wintype% Windows NT "
  764.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  765.                break
  766.           case 3 ; MIPS
  767.                mode="MIPS %wintype% Windows NT "
  768.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  769.                break
  770.           case 4 ; PowerPC 
  771.                mode="PowerPC %wintype% Windows NT "
  772.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  773.                break
  774.           case wcx
  775.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  776.                mode="Unknown platform %wintype% Windows  "
  777.         endswitch
  778.  
  779.         Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),@CRLF)
  780.  
  781.         mouse="No Mouse"
  782.         if WinMetrics(19) then mouse="Mouse"
  783.  
  784.         Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',@CRLF)
  785.  
  786.         sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",@CRLF)
  787.  
  788.         ErrorMode(@OFF)
  789.         LastError()
  790.         PlayMedia("Status WaveForm Ready")
  791.         ErrorMode(@CANCEL)
  792.         if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",@CRLF)
  793.         a=NetInfo(0)
  794.         if a=="MULTINET"
  795.              b=NetInfo(1)
  796.              bug=strcat(b,"network(s) installed")
  797.              ;Message("Multinet supporting  %count% networks", b)
  798.         else
  799.              ;Message("Installed Network", a)
  800.              bug=strcat(a," network installed")
  801.         endif
  802.         sysinfo=strcat(sysinfo,bug,@crlf)
  803.  
  804.  
  805.         switch wcx
  806.            case 0
  807.                bug=WinResources(0)/1024   ; Compute memory avail
  808.                math=strlen(bug)
  809.                if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  810.                sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  811.                sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  812.               break
  813.            case wcx
  814.               bug=WinResources(11)/1024   ; Get Physical memory avail
  815.               sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)
  816.               bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail
  817.               sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)
  818.         end switch
  819.  
  820.  
  821.         sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),@CRLF)
  822.         disks=DiskScan(1)
  823.         disks=StrReplace(disks,@tab," ")
  824.         if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,@CRLF)
  825.         disks=DiskScan(2)
  826.         disks=StrReplace(disks,@tab," ")
  827.         if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,@CRLF)
  828.         disks=DiskScan(4)
  829.         disks=StrReplace(disks,@tab," ")
  830.         if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,@CRLF)
  831.         sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),@CRLF)
  832.         sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),@CRLF)
  833.         sysinfo=strcat(sysinfo,@CRLF,"WIL Interpreter Ver ",VersionDll())
  834.  
  835.         ver=Version()
  836.         Message("%Param2% %ver% SysInfo",Sysinfo)
  837.         Exit
  838.  
  839. Interactive Execution
  840.           if !IsDefined(uyit65) then uyit65="Message( , )"
  841.           :NEXT
  842.           uyit65=AskLine("Interactive Execution","Enter Command",uyit65)
  843.           execute %uyit65%
  844.           goto NEXT
  845.           
  846. _Run a WIL Script File
  847.          if wGetModified()==@TRUE then wFileSave()
  848.          TheFile = WGetFileName()
  849.          Call(TheFile,"")
  850.  
  851.         
  852.